home *** CD-ROM | disk | FTP | other *** search
/ Interactive Quarterly / The Best of New Machine Publishing 1 - Disc 4: Interactive Quarterly.iso / pc / demos / az / cyberx.dxr / 00079_BOTON CONSOLADOR 3.ls < prev    next >
Encoding:
Text File  |  1996-10-06  |  326 b   |  18 lines
  1. on mouseDown
  2.   global Tabcajas, num_caja
  3.   set num_caja to 11
  4.   if getAt(Tabcajas, num_caja) then
  5.     repeat while the mouseDown
  6.       pon_cursor(3, 3)
  7.     end repeat
  8.   end if
  9. end
  10.  
  11. on mouseUp
  12.   global Tabcajas, num_caja, objeto_nik
  13.   set num_caja to 11
  14.   if getAt(Tabcajas, num_caja) then
  15.     set objeto_nik to 3
  16.   end if
  17. end
  18.